﻿Public Class encFisioterapia
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            If Session("usuarioId") Is Nothing Then
                Response.Redirect("loguin.aspx")
            End If
            If Not Session("profesionId") Is Nothing Then
                If Permisos.Validar(Session("profesionId").ToString, 8) = False Then
                    Response.Redirect("Denied.aspx")
                End If
            Else
                Response.Redirect("Denied.aspx")
            End If
            If Not IsPostBack Then
                lbprofesion.Text = Session("profesion").ToString()
                lbnombre.Text = Session("nombre").ToString()
                Dim TablaId = Request.QueryString.Get("fisioId")
                If TablaId <> "" Then
                    Consulta_Registro(TablaId, sender, e)
                    If Request.QueryString.Get("fisioId") <> "" Then
                        Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel2, "fnCargaEdicion();")
                    End If
                End If
            End If
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Public Sub Consulta_Registro(ByVal Id As Integer, ByVal sender As Object, ByVal e As EventArgs)
        On Error GoTo errores
        Dim Docmd As New DoCmd, reader As System.Data.SqlClient.SqlDataReader
        Dim Qry As String
        Dim camp As Integer
        Qry = "SELECT fisi.*, par.primerNombre + ' ' + par.segundoNombre + ' ' + par.primerApellido + ' ' + par.segundoApellido AS NombreCompleto, YEAR({ fn NOW() }) - YEAR(par.fechaNacimiento) AS Edad,par.sexo FROM fisioterapia AS fisi INNER JOIN participantes AS par ON par.participanteId = fisi.participantesId where fisi.fisioID = " & Id
        Docmd.Conectar()
        reader = Docmd.Read_SQL(Qry)
        While reader.Read
            camp = reader.FieldCount
            For i = 0 To camp - 1
                On Error Resume Next
                If Page.Form.FindControl(reader.GetName(i)).ID <> "" Then
                    Asigna_control(Page.Form.FindControl(reader.GetName(i)), reader(i).ToString().Trim)
                End If
            Next
        End While
        reader.Close()
        Docmd.Desconectar()
        Exit Sub
errores:
        Response.Write(Err.Description)
    End Sub

    Private Sub Asigna_control(ByVal Objeto As Object, ByRef valor As String)
        Select Case Objeto.GetType.Name
            Case "HiddenField"
                If valor <> "" Then
                    Objeto.value = valor
                Else
                    Objeto.value = ""
                End If
            Case "TextBox"
                If valor <> "" Then
                    Objeto.text = valor
                Else
                    Objeto.text = ""
                End If
            Case "CheckBox"
                If valor = "Si" Then
                    Objeto.Checked = True
                Else
                    Objeto.Checked = False
                End If
            Case "RadioButtonList"
                If valor <> "" Then
                    If valor = "True" Then
                        Objeto.SelectedValue = 1
                    ElseIf valor = "False" Then
                        Objeto.SelectedValue = 0
                    Else
                        Objeto.SelectedValue = valor
                    End If
                Else
                    Objeto.SelectedIndex = -1
                End If
            Case "DropDownList"
                If valor <> "" Then
                    Objeto.SelectedValue = Objeto.Items.FindByValue(valor.Trim).Value
                Else
                    Objeto.SelectedIndex = -1
                End If
        End Select
    End Sub

    Private Sub cargacombos(ByVal participanteId As Integer)
        Try
            Dim docmd As New Sql_Server
            docmd.Conectar()
            docmd.Combo = cboUltRegistros
            docmd.Listar_Combo("SELECT TOP (50) fisi.fisioID, CAST(fisi.fechaCreo AS varchar) + '->' + par.primerNombre + ' ' +  CASE WHEN par.segundoNombre IS NULL THEN '' ELSE par.segundoNombre END + '  ' + par.primerApellido + ' ' + CASE WHEN par.segundoApellido IS NULL THEN '' ELSE par.segundoApellido END AS Nombre FROM fisioterapia AS fisi  INNER JOIN participantes AS par ON par.participanteId = fisi.participantesId WHERE (fisi.participantesId = " + participanteId.ToString + ") ORDER BY fisi.fechaCreo DESC")
            docmd.Desconectar()
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Private Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        Try
            Select Case e.Row.RowType
                Case DataControlRowType.DataRow
                    Dim id As Label = e.Row.FindControl("idParticipante")
                    Dim ctrlEliminar As ImageButton = CType(e.Row.Cells(0).Controls(0), ImageButton)
                    ctrlEliminar.OnClientClick = "fnOculta('" + id.Text.Trim + "','" + e.Row.Cells(5).Text.Trim + "','" + e.Row.Cells(6).Text.Trim + "','" + e.Row.Cells(4).Text.Trim + "');return true;"
                    ctrlEliminar.ToolTip = "Click para ingresar un nuevo componente Fisioterapeutico a " + e.Row.Cells(4).Text.Trim.ToUpper
            End Select
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub
    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.SelectedIndexChanged
        Try
            Dim row As GridViewRow = GridView1.SelectedRow
            Dim id As Label = row.FindControl("idParticipante")
            cargacombos(id.Text.Trim)
            Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "fnListBox();")
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub

    Protected Sub BtnguardaVb_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnguardaVb.Click
        If Page.IsValid = True Then
            Dim modelo As New DataClasses1DataContext()
            Dim cstype As Type = Page.GetType()
            Dim cs As ClientScriptManager = Page.ClientScript
            Dim sb As StringBuilder = New StringBuilder()
            If IsNumeric(fisioID.Value.Trim) Then
                'edita
                Dim Clfisio = (From fisio In modelo.fisioterapias Where fisio.fisioID.Equals(fisioID.Value.Trim) Select fisio).Single()
                Clfisio.participantesId = participantesId.Value.Trim
                Clfisio.usuario_id = Session("usuarioId").ToString
                If dolorOccipital.Checked Then
                    Clfisio.dolorOccipital = "Si"
                Else
                    Clfisio.dolorOccipital = "No"
                End If
                If cervicalgia.Checked Then
                    Clfisio.cervicalgia = "Si"
                Else
                    Clfisio.cervicalgia = "No"
                End If
                If dorsalgia.Checked Then
                    Clfisio.dorsalgia = "Si"
                Else
                    Clfisio.dorsalgia = "No"
                End If
                If lumbalgia.Checked Then
                    Clfisio.lumbalgia = "Si"
                Else
                    Clfisio.lumbalgia = "No"
                End If
                If sobrepeso.Checked Then
                    Clfisio.sobrepeso = "Si"
                Else
                    Clfisio.sobrepeso = "No"
                End If
                If insomio.Checked Then
                    Clfisio.insomio = "Si"
                Else
                    Clfisio.insomio = "No"
                End If
                If estres.Checked Then
                    Clfisio.estres = "Si"
                Else
                    Clfisio.estres = "No"
                End If
                If dolorenmanos.Checked Then
                    Clfisio.dolorenmanos = "Si"
                Else
                    Clfisio.dolorenmanos = "No"
                End If
                If poliartralgia.Checked Then
                    Clfisio.poliartralgia = "Si"
                Else
                    Clfisio.poliartralgia = "No"
                End If
                If adormeceManos.Checked Then
                    Clfisio.adormeceManos = "Si"
                Else
                    Clfisio.adormeceManos = "No"
                End If
                If altMovArticular.Checked Then
                    Clfisio.altMovArticular = "Si"
                Else
                    Clfisio.altMovArticular = "No"
                End If
                If debilidadMMII.Checked Then
                    Clfisio.debilidadMMII = "Si"
                Else
                    Clfisio.debilidadMMII = "No"
                End If
                If ansiedad.Checked Then
                    Clfisio.ansiedad = "Si"
                Else
                    Clfisio.ansiedad = "No"
                End If
                If otros.Checked Then
                    Clfisio.otros = "Si"
                Else
                    Clfisio.otros = "No"
                End If
                If manoartralgia.Checked Then
                    Clfisio.manoartralgia = "Si"
                Else
                    Clfisio.manoartralgia = "No"
                End If
                If AlteracionMMSS.Checked Then
                    Clfisio.AlteracionMMSS = "Si"
                Else
                    Clfisio.AlteracionMMSS = "No"
                End If
                If AlteracionMMII.Checked Then
                    Clfisio.AlteracionMMII = "Si"
                Else
                    Clfisio.AlteracionMMII = "No"
                End If
                If debilidadMMS.Checked Then
                    Clfisio.debilidadMMS = "Si"
                Else
                    Clfisio.debilidadMMS = "No"
                End If
                If sedentarismo.Checked Then
                    Clfisio.sedentarismo = "Si"
                Else
                    Clfisio.sedentarismo = "No"
                End If
                If depresion.Checked Then
                    Clfisio.depresion = "Si"
                Else
                    Clfisio.depresion = "No"
                End If
                Clfisio.otrosDesc = otrosDesc.Text.Trim
                If limitaCervical.Checked Then
                    Clfisio.limitaCervical = "Si"
                Else
                    Clfisio.limitaCervical = "No"
                End If
                If limitaDorsolumba.Checked Then
                    Clfisio.limitaDorsolumba = "Si"
                Else
                    Clfisio.limitaDorsolumba = "No"
                End If
                If limitaHombro.Checked Then
                    Clfisio.limitaHombro = "Si"
                Else
                    Clfisio.limitaHombro = "No"
                End If
                If limitaCodo.Checked Then
                    Clfisio.limitaCodo = "Si"
                Else
                    Clfisio.limitaCodo = "No"
                End If
                If limitaMano.Checked Then
                    Clfisio.limitaMano = "Si"
                Else
                    Clfisio.limitaMano = "No"
                End If
                If limitaCadera.Checked Then
                    Clfisio.limitaCadera = "Si"
                Else
                    Clfisio.limitaCadera = "No"
                End If
                If limitaRodilla.Checked Then
                    Clfisio.limitaRodilla = "Si"
                Else
                    Clfisio.limitaRodilla = "No"
                End If
                If limitaCuellodePie.Checked Then
                    Clfisio.limitaCuellodePie = "Si"
                Else
                    Clfisio.limitaCuellodePie = "No"
                End If
                If debilidadCervical.Checked Then
                    Clfisio.debilidadCervical = "Si"
                Else
                    Clfisio.debilidadCervical = "No"
                End If
                If debilidadLumbar.Checked Then
                    Clfisio.debilidadLumbar = "Si"
                Else
                    Clfisio.debilidadLumbar = "No"
                End If
                If debilidadDorsal.Checked Then
                    Clfisio.debilidadDorsal = "Si"
                Else
                    Clfisio.debilidadDorsal = "No"
                End If
                If debilidadHombro.Checked Then
                    Clfisio.debilidadHombro = "Si"
                Else
                    Clfisio.debilidadHombro = "No"
                End If
                If debilidadCodo.Checked Then
                    Clfisio.debilidadCodo = "Si"
                Else
                    Clfisio.debilidadCodo = "No"
                End If
                If debilidadMano.Checked Then
                    Clfisio.debilidadMano = "Si"
                Else
                    Clfisio.debilidadMano = "No"
                End If
                If debilidadCadera.Checked Then
                    Clfisio.debilidadCadera = "Si"
                Else
                    Clfisio.debilidadCadera = "No"
                End If
                If debilidadRodilla.Checked Then
                    Clfisio.debilidadRodilla = "Si"
                Else
                    Clfisio.debilidadRodilla = "No"
                End If
                If debilidadCuelloPie.Checked Then
                    Clfisio.debilidadCuelloPie = "Si"
                Else
                    Clfisio.debilidadCuelloPie = "No"
                End If
                If debilidadDedosMano.Checked Then
                    Clfisio.debilidadDedosMano = "Si"
                Else
                    Clfisio.debilidadDedosMano = "No"
                End If
                Clfisio.observaciones = observaciones.Text.Trim
                Clfisio.tonoMuscular = tonoMuscular.SelectedValue.Trim
                Clfisio.alteracionSensibilidad = alteracionSensibilidad.SelectedValue.Trim
                Clfisio.inestabilidadEnMarcha = inestabilidadEnMarcha.SelectedValue.Trim
                Clfisio.neurologica = neurologica.SelectedValue.Trim
                Clfisio.vertigo = vertigo.SelectedValue.Trim
                Clfisio.zonaPresion = zonaPresion.SelectedValue.Trim
                Clfisio.controlMotor = controlMotor.SelectedValue.Trim
                Clfisio.equilibrio = equilibrio.SelectedValue.Trim
                Clfisio.coordinacion = coordinacion.SelectedValue.Trim
                Clfisio.postura = postura.SelectedValue.Trim
                Clfisio.temblor = temblor.SelectedValue.Trim
                Clfisio.vision = vision.SelectedValue.Trim
                Clfisio.sehacaido = sehacaido.SelectedValue.Trim
                Clfisio.sehacaidoDesc = sehacaidoDesc.Text.Trim
                Clfisio.ayudaExterna = ayudaExterna.SelectedValue.Trim
                Clfisio.conceptoFisio = conceptoFisio.Text.Trim
                modelo.SubmitChanges()
                fisioID.Value = Clfisio.fisioID.ToString
                If txtContinua.Value.Trim = "Si" Then
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "alert('Se ha guardado correctamente');")
                Else
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "alert('Se ha guardado correctamente');window.location = 'encFisioterapia.aspx'")
                End If
            Else
                'Se trata de un nuevo registro
                Dim Clfisio As New fisioterapia
                Clfisio.participantesId = participantesId.Value.Trim
                If dolorOccipital.Checked Then
                    Clfisio.dolorOccipital = "Si"
                Else
                    Clfisio.dolorOccipital = "No"
                End If
                If cervicalgia.Checked Then
                    Clfisio.cervicalgia = "Si"
                Else
                    Clfisio.cervicalgia = "No"
                End If
                If dorsalgia.Checked Then
                    Clfisio.dorsalgia = "Si"
                Else
                    Clfisio.dorsalgia = "No"
                End If
                If lumbalgia.Checked Then
                    Clfisio.lumbalgia = "Si"
                Else
                    Clfisio.lumbalgia = "No"
                End If
                If sobrepeso.Checked Then
                    Clfisio.sobrepeso = "Si"
                Else
                    Clfisio.sobrepeso = "No"
                End If
                If insomio.Checked Then
                    Clfisio.insomio = "Si"
                Else
                    Clfisio.insomio = "No"
                End If
                If estres.Checked Then
                    Clfisio.estres = "Si"
                Else
                    Clfisio.estres = "No"
                End If
                If dolorenmanos.Checked Then
                    Clfisio.dolorenmanos = "Si"
                Else
                    Clfisio.dolorenmanos = "No"
                End If
                If poliartralgia.Checked Then
                    Clfisio.poliartralgia = "Si"
                Else
                    Clfisio.poliartralgia = "No"
                End If
                If adormeceManos.Checked Then
                    Clfisio.adormeceManos = "Si"
                Else
                    Clfisio.adormeceManos = "No"
                End If
                If altMovArticular.Checked Then
                    Clfisio.altMovArticular = "Si"
                Else
                    Clfisio.altMovArticular = "No"
                End If
                If debilidadMMII.Checked Then
                    Clfisio.debilidadMMII = "Si"
                Else
                    Clfisio.debilidadMMII = "No"
                End If
                If ansiedad.Checked Then
                    Clfisio.ansiedad = "Si"
                Else
                    Clfisio.ansiedad = "No"
                End If
                If otros.Checked Then
                    Clfisio.otros = "Si"
                Else
                    Clfisio.otros = "No"
                End If
                If manoartralgia.Checked Then
                    Clfisio.manoartralgia = "Si"
                Else
                    Clfisio.manoartralgia = "No"
                End If
                If AlteracionMMSS.Checked Then
                    Clfisio.AlteracionMMSS = "Si"
                Else
                    Clfisio.AlteracionMMSS = "No"
                End If
                If AlteracionMMII.Checked Then
                    Clfisio.AlteracionMMII = "Si"
                Else
                    Clfisio.AlteracionMMII = "No"
                End If
                If debilidadMMS.Checked Then
                    Clfisio.debilidadMMS = "Si"
                Else
                    Clfisio.debilidadMMS = "No"
                End If
                If sedentarismo.Checked Then
                    Clfisio.sedentarismo = "Si"
                Else
                    Clfisio.sedentarismo = "No"
                End If
                If depresion.Checked Then
                    Clfisio.depresion = "Si"
                Else
                    Clfisio.depresion = "No"
                End If
                Clfisio.otrosDesc = otrosDesc.Text.Trim
                If limitaCervical.Checked Then
                    Clfisio.limitaCervical = "Si"
                Else
                    Clfisio.limitaCervical = "No"
                End If
                If limitaCervical.Checked Then
                    Clfisio.limitaCervical = "Si"
                Else
                    Clfisio.limitaCervical = "No"
                End If
                If limitaHombro.Checked Then
                    Clfisio.limitaHombro = "Si"
                Else
                    Clfisio.limitaHombro = "No"
                End If
                If limitaCodo.Checked Then
                    Clfisio.limitaCodo = "Si"
                Else
                    Clfisio.limitaCodo = "No"
                End If
                If limitaMano.Checked Then
                    Clfisio.limitaMano = "Si"
                Else
                    Clfisio.limitaMano = "No"
                End If
                If limitaCadera.Checked Then
                    Clfisio.limitaCadera = "Si"
                Else
                    Clfisio.limitaCadera = "No"
                End If
                If limitaRodilla.Checked Then
                    Clfisio.limitaRodilla = "Si"
                Else
                    Clfisio.limitaRodilla = "No"
                End If
                If limitaCuellodePie.Checked Then
                    Clfisio.limitaCuellodePie = "Si"
                Else
                    Clfisio.limitaCuellodePie = "No"
                End If
                If debilidadCervical.Checked Then
                    Clfisio.debilidadCervical = "Si"
                Else
                    Clfisio.debilidadCervical = "No"
                End If
                If debilidadLumbar.Checked Then
                    Clfisio.debilidadLumbar = "Si"
                Else
                    Clfisio.debilidadLumbar = "No"
                End If
                If debilidadDorsal.Checked Then
                    Clfisio.debilidadDorsal = "Si"
                Else
                    Clfisio.debilidadDorsal = "No"
                End If
                If debilidadHombro.Checked Then
                    Clfisio.debilidadHombro = "Si"
                Else
                    Clfisio.debilidadHombro = "No"
                End If
                If debilidadCodo.Checked Then
                    Clfisio.debilidadCodo = "Si"
                Else
                    Clfisio.debilidadCodo = "No"
                End If
                If debilidadMano.Checked Then
                    Clfisio.debilidadMano = "Si"
                Else
                    Clfisio.debilidadMano = "No"
                End If
                If debilidadCadera.Checked Then
                    Clfisio.debilidadCadera = "Si"
                Else
                    Clfisio.debilidadCadera = "No"
                End If
                If debilidadRodilla.Checked Then
                    Clfisio.debilidadRodilla = "Si"
                Else
                    Clfisio.debilidadRodilla = "No"
                End If
                If debilidadCuelloPie.Checked Then
                    Clfisio.debilidadCuelloPie = "Si"
                Else
                    Clfisio.debilidadCuelloPie = "No"
                End If
                If debilidadDedosMano.Checked Then
                    Clfisio.debilidadDedosMano = "Si"
                Else
                    Clfisio.debilidadDedosMano = "No"
                End If
                Clfisio.observaciones = observaciones.Text.Trim
                Clfisio.tonoMuscular = tonoMuscular.SelectedValue.Trim
                Clfisio.alteracionSensibilidad = alteracionSensibilidad.SelectedValue.Trim
                Clfisio.inestabilidadEnMarcha = inestabilidadEnMarcha.SelectedValue.Trim
                Clfisio.neurologica = neurologica.SelectedValue.Trim
                Clfisio.vertigo = vertigo.SelectedValue.Trim
                Clfisio.zonaPresion = zonaPresion.SelectedValue.Trim
                Clfisio.controlMotor = controlMotor.SelectedValue.Trim
                Clfisio.equilibrio = equilibrio.SelectedValue.Trim
                Clfisio.coordinacion = coordinacion.SelectedValue.Trim
                Clfisio.postura = postura.SelectedValue.Trim
                Clfisio.temblor = temblor.SelectedValue.Trim
                Clfisio.vision = vision.SelectedValue.Trim
                Clfisio.sehacaido = sehacaido.SelectedValue.Trim
                Clfisio.sehacaidoDesc = sehacaidoDesc.Text.Trim
                Clfisio.ayudaExterna = ayudaExterna.SelectedValue.Trim
                Clfisio.conceptoFisio = conceptoFisio.Text.Trim
                Clfisio.fechaCreo = DateTime.Now()
                modelo.fisioterapias.InsertOnSubmit(Clfisio)
                modelo.SubmitChanges()
                fisioID.Value = Clfisio.fisioID.ToString
                If txtContinua.Value.Trim = "Si" Then
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "alert('Se ha guardado correctamente');")
                Else
                    Msgbox_Web.CreateMessageAlertInUpdatePanel(UpdatePanel4, "alert('Se ha guardado correctamente');window.location = 'encFisioterapia.aspx'")
                End If
            End If
        End If
    End Sub
    Protected Sub btnBusRapida_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnBusRapida.Click
        SqlDataSource1.FilterExpression = geriatriaClases.fnbusquedaRapida(txtBusquedaRapida.Text.ToString())
        SqlDataSource1.DataBind()
    End Sub
End Class